	
	'
	'  simple byte scrambler, influenced by yetifoot's code that can be found at
	'  http://www.freebasic.net/forum/viewtopic.php?p=101105#101105
	'
	Sub Scramble(ptrData As UByte Pointer, length As Integer, password As String)
		
		Dim As UInteger seed = SuperFastHash(StrPtr(password), Len(password)) 
		
		For i As Integer = 0 To length - 1
			
			ptrData[i] Xor= seed
				
			seed = (1664525 * seed) + 1013904223
			
		Next
		
	End Sub